home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / dev / basic / STRPortLib.lha / STRPortLib / Demo / KeyboardDemo.asc next >
Encoding:
Text File  |  2001-03-21  |  345 b   |  18 lines
  1. ; STRPort.obj
  2. ;
  3. ; Keyboard Demo (c) 1998-2001 by Stephan Richartz
  4. ;
  5. ; AKey
  6.  
  7.  
  8. NPrint "probier mal die F-Tasten, oder CapsLock..."
  9. Nprint "try some F-keys or CapsLock..."
  10. Repeat
  11.   alt=neu
  12.   neu=AKey         ; Tastencode direkt aus dem HardwareRegister
  13.   If alt<>neu
  14.     NPrint neu
  15.   EndIf
  16. Until neu=76       ; F10 losgelassen = Ende (F10=end)
  17. End
  18.